home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh42.d64
/
anl. text ii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
296b
|
17 lines
10 PRINT CHR$(147)CHR$(14)CHR$(5)
20 PRINT"[193]NLEITUNG FUER [212]EXT [201][201]"
30 PRINT
40 PRINT"[193]USGABE AUF [196]RUCKER ODER [194]ILDSCHIRM ?"
50 PRINT
60 INPUT"[194]ITTE <D> ODER <B> EINGEBEN";A$
70 GA=3
80 IF A$="D" OR A$="[196]" THEN GA=4
90 OPEN1,8,2,"TEXT II,S,R"
100 OPEN2,GA,7
110 GET#1,A$
120 IF ST <> 0 THEN GOTO 150
130 PRINT#2,A$;
140 GOTO 110
150 CLOSE 2
160 CLOSE 1